0 O

0 A

%%EndSetup

Agamik_Barcoder /initialize get exec

Agamik_cmykcolor /initialize get exec

%%BeginSetup

%%EndProlog

%%EndProcSet

setpacking

currentdict readonly pop end

currentdict readonly pop end

/setcustomcolor { 2 npop } bind def

/setcmykcolor { 4 npop } bind def

/setgray { pop } bind def

nc begin

/nc 3 dict def

/A { pop } def

/_lp /none ddef } def

restore 5 npop newpath } ddef

{ pop 8 copy 3 npop ss } ifelse grestore pop } for pop } for

11 copy 6 npop 3 -1 roll pop patternashowstroke }

{ pop } ifelse 2 copy 1 add get dup _ ne { aload pop findfont _sm

{ gsave 2 copy get dup _ ne { cvx exec _sc }

{ /_sd exch _sdd exch get ddef _sd 0 2 _sd length 2 sub

/_pss { save 0 1 _sdd length 1 sub

restore newpath } ddef

{ pop stroke } ifelse grestore pop } for pop } for

{ aload pop findfont _sm patternstroke }

{ pop } ifelse 2 copy 1 add get dup _ ne

{ gsave 2 copy get dup _ ne { cvx exec _sc }

{ /_sd exch _sdd exch get ddef _sd 0 2 _sd length 2 sub

/_ps { save 0 1 _sdd length 1 sub

_pd exch get /_sdd exch ddef

_pm astore sc neg _pm rotate sc

exch dup sin exch cos div 1 0 0 1 0 6 2 roll

{ pop } ifelse dup _pm rotate sc

{ dup _pm rotate sc 1 -1 _pm scale sc neg _pm rotate sc }

7 -2 roll _pm scale sc 5 -1 roll _pm rotate sc 4 -2 roll exch 0 ne

/P { /_sm exch ddef 9 -2 roll _pm translate sc

/sc { _sm dup concatmatrix pop } def

/_lp /none ddef } def

restore 4 npop newpath } ddef

grestore pop } for pop } for

{ pop 7 copy 3 npop exch pop ashow } ifelse

aload pop findfont _fm 10 copy 6 npop exch pop patternashow }

2 copy 1 add get dup _ ne {

{ pop } ifelse

{ gsave 2 copy get dup _ ne { cvx exec _fc }

{ /_fd exch _fdd exch get ddef _fd 0 2 _fd length 2 sub

/_psf { save 0 1 _fdd length 1 sub

restore newpath } ddef

{ pop fill } ifelse grestore pop } for pop } for

{ aload pop findfont _fm patternfill }

{ pop } ifelse 2 copy 1 add get dup _ ne

gsave 2 copy get dup _ ne { cvx exec _fc }

{ /_fd exch _fdd exch get ddef _fd 0 2 _fd length 2 sub {

/_pf { save 0 1 _fdd length 1 sub

_pd exch get /_fdd exch ddef

_pm astore fc neg _pm rotate fc

exch dup sin exch cos div 1 0 0 1 0 6 2 roll

{ pop } ifelse dup _pm rotate fc

{ dup _pm rotate fc 1 -1 _pm scale fc neg _pm rotate fc}

5 -1 roll _pm rotate fc 4 -2 roll exch 0 ne

9 -2 roll _pm translate fc 7 -2 roll _pm scale fc

/p { /_fm exch ddef

/fc { _fm dup concatmatrix pop } def

end xput } def

null dp _n _dd /_pd

_d exch _x 1 add exch put } if } for } for

_fn _c false dp

_fn 12 _n putinterval

/_y _y 1 add def

_y _fn cvs pop

/_fn 12 _n length add string def

/restore cvx ] cvx

_c { /end cvx } if

{ {exec} /forall cvx } ifelse

_r dup type /stringtype eq{ cvx }

{ nc /begin cvx } if

[ /save cvx _llx neg _lly neg /translate cvx _c

_r _ ne { _urx _llx sub _ury _lly sub [1 0 0 1 0 0] 

/_c _d _x get _ ne def /_r _d _x 1 add get cvlit def